1 QP=0
5 J=0
10 PRINT"[147]"
20 POKE 53281,7:POKE 53280,0
30 PRINT"[144]"
40 PRINT" LIONWARE PROUDLY PRESENTS:"
45 PRINT"[156]"
50 PRINT:PRINT:PRINT"             METAL   STAR              "
52 PRINT"            [196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
55 PRINT""
60 PRINT:PRINT:PRINT:PRINT:PRINT" WRITTEN BY PETER BOHLMANN"
70 PRINT"[144]"
80 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" <SPACE>"
90 GET AA$:IF AA$="" THEN 90
100 IF AA$=CHR$(32) THEN 110
110 PRINT"[147]"
120 INPUT" WIE IST DEIN NAME ";N$
140 PRINT:INPUT" BANDNAME ";BN$
160 PRINT:PRINT" WIEVIELE LEUTE SOLLEN IN DER BAND"
170 PRINT:INPUT" SPIELEN ";AM
175 IF AM<1 THEN 160
180 IF AM=1 THEN 240
190 IF AM=2 THEN 250
200 IF AM<6 THEN 260
210 IF AM=6 THEN 270
220 IF AM>6 THEN 280
230 GOTO 160
240 PRINT:PRINT:PRINT" AHA...EIN SOLOPROJEKT !!!":GOTO 290
250 PRINT:PRINT:PRINT" PUNK ?":GOTO 290
260 PRINT:PRINT:PRINT" GEHT KLAR ...":GOTO 290
270 PRINT:PRINT:PRINT" NOCH MEHR ...":GOTO 290
280 PRINT:PRINT:PRINT" 'NE BIG-BAND ?":GOTO 290
290 GET AA$:IF AA$="" THEN 290
300 IF AA$=CHR$(32) THEN 310
310 PRINT"[147]"
320 PRINT" DRUECKE <SPACE>, UM DAS TALENT DES"
330 PRINT:PRINT" BESTEN SONGSCHREIBERS IN DER BAND ZU"
335 PRINT:PRINT" ERMITTELN (1=UNFAEHIG / 7=GENIAL) !"
340 GET AA$:IF AA$="" THEN 340
350 IF AA$=CHR$(32) THEN 355
355 PRINT
360 LS=INT(7*RND(1))+1
365 PRINT""
370 PRINT:PRINT" DER TALENTWERT LIEGT BEI"LS"..."
375 PRINT"[144]"
380 PRINT:PRINT:PRINT" DRUECKE ABERMALS <SPACE>, UM DAS"
390 PRINT:PRINT" DURSCHNITTSKOENNEN DER MUSIKER ZU ER-"
400 PRINT:PRINT" FAHREN (1=UNFAEHIG / 7=PERFEKT) !"
410 GET AA$:IF AA$="" THEN 410
420 IF AA$=CHR$(32) THEN 430
430 DK=INT(7*RND(1))+1
435 PRINT""
440 PRINT:PRINT:PRINT" DER DURCHSCHNITTSWERT LIEGT BEI"DK"..."
450 GET AA$:IF AA$="" THEN 450
460 IF AA$=CHR$(32) THEN 470
470 PRINT"[147]"
475 PRINT"[144]"
480 PRINT" WELCHEN STIL WOLLT IHR SPIELEN ?"
490 PRINT:PRINT:PRINT" 1= HARDROCK"
500 PRINT:PRINT" 2= HEAVY METAL"
510 PRINT:PRINT" 3= SPEED METAL"
520 PRINT:PRINT" 4= THRASH METAL"
530 PRINT:PRINT" 5= DEATH METAL"
540 PRINT:PRINT" 6= GRINDCORE"
550 PRINT:PRINT" 7= PUNK"
560 PRINT:PRINT:INPUT"";S
570 IF S= 1 THEN 650
580 IF S= 2  THEN 660
590 IF S= 3  THEN 670
600 IF S= 4  THEN 680
610 IF S= 5  THEN 690
620 IF S= 6  THEN 700
630 IF S= 7  THEN 710
640 GOTO 470
650 S$="HARDROCK":V=5000:GOTO 720
660 S$="HEAVY METAL":V=2000:GOTO 720
670 S$="SPEED METAL":V=2500:GOTO 720
680 S$="THRASH METAL":V=1500:GOTO 720
690 S$="DEATH METAL":V=750:GOTO 720
700 S$="GRINDCORE":V=300:GOTO 720
710 S$="PUNK":V=2000:GOTO 720
720 PRINT"[147]"
730 PRINT" WELCHES IMAGE WOLLT IHR EUCH ZULEGEN ?"
740 PRINT:PRINT" 1= LOVER BOYS"
750 PRINT:PRINT" 2= JUNGS VON NEBENAN"
760 PRINT:PRINT" 3= COOLE TYPEN"
770 PRINT:PRINT" 4= KAPUTTE TYPEN"
780 PRINT:PRINT" 5= HARTE TYPEN"
785 PRINT:PRINT" 6= SATANISTEN"
790 PRINT:PRINT:INPUT"";I
800 IF I= 1  THEN 870
810 IF I= 2  THEN 880
820 IF I= 3  THEN 890
830 IF I= 4  THEN 900
840 IF I= 5  THEN 910
850 IF I=6 THEN 915
860 GOTO 720
870 I$="LOVER BOYS":GOTO 920
880 I$="JUNGS VON NEBENAN":GOTO 920
890 I$="COOLE TYPEN":GOTO 920
900 I$="KAPUTTE TYPEN":GOTO 920
910 I$="HARTE TYPEN":GOTO 920
915 I$="SATANISTEN":GOTO 920
920 IF S=1 THEN 990
930 IF S=2 THEN 1020
940 IF S=3 THEN 1020
950 IF S=4 THEN 1070
960 IF S=5 THEN 1100
970 IF S=6 THEN 1100
980 IF S=7 THEN 990
990 IF I>3 THEN 1010
1000 V=V+1000:GOTO 1140
1010 V=V-I*500:GOTO 1140
1020 IF I=1 THEN 1050
1030 IF I=6 THEN 1060
1040 GOTO 1140
1050 V=V-750:GOTO 1140
1060 V=V-I*75:GOTO 1140
1070 IF I=1 THEN 1090
1080 GOTO 1140
1090 V=V-1000:GOTO 1140
1100 IF I<3 THEN 1120
1110 IF I>4 THEN 1130
1115 GOTO 1140
1120 V=0:GOTO 1140
1130 V=V+I*100:GOTO 1140
1140 DQ=0
1141 PRINT"[147]"
1150 J=J+1
1160 PRINT" IHR VERSCHANZT EUCH IM PROBERAUM UND"
1170 PRINT:PRINT" UEBT WIE DIE BESESSENEN ! NACH EI-"
1180 PRINT:PRINT" NIGEN MONATEN KOMMT ENDLICH DIE ZEIT,"
1190 PRINT:PRINT" EUER DEMO NR."J" AUFZUNEHMEN !"
1200 PRINT:PRINT:INPUT" NAME DES DEMOS ";D$
1210 PRINT:PRINT:PRINT" DRUECKE <SPACE>, UM ZU ERMITTELN,"
1220 PRINT:PRINT" WELCHEN QUALITAETSSTANDARD IHR ER-"
1230 PRINT:PRINT" REICHT (1=TOTAL MIES / 7=SUPER) !"
1235 PRINT""
1240 GET AA$:IF AA$="" THEN 1240
1250 IF AA$=CHR$(32) THEN 1260
1260 Q1=LS+DK
1270 Q2=Q1/2
1280 ZU=INT(2*RND(1))+1
1290 XX=INT(2*RND(1))+1
1300 IF XX=1 THEN 1320
1310 IF XX=2 THEN 1330
1320 DQ=Q2+ZU:GOTO 1340
1330 DQ=Q2-ZU:GOTO 1340
1340 IF DQ< 0.1 THEN 1342
1341 GOTO 1343
1342 DQ=1:GOTO 1343
1343 IF DQ>7 THEN 1345
1344 GOTO 1349
1345 DQ=7:GOTO 1349
1349 PRINT:PRINT" DER STANDARD DES DEMOS BETRAEGT:"DQ"!"
1350 PRINT"[144]"
1360 GET AA$:IF AA$="" THEN 1360
1370 IF AA$=CHR$(32) THEN 1380
1380 PRINT"[147]"
1390 IF DQ<2 THEN 1440
1400 IF DQ<4 THEN 1470
1410 IF DQ<5 THEN 1530
1420 IF DQ<7 THEN 1630
1430 IF DQ=7 THEN 1740
1440 PRINT" EUER DEMO IST WIRKLICH TIERISCH DA-"
1450 PRINT:PRINT" NEBEN...KULT - ABER SCHLECHT ..."
1460 PRINT:PRINT" VERSUCHT ES NOCHMAL !!!":GOTO 1510
1470 PRINT" BESONDERS GUT IST DAS DEMO NICHT GE-"
1480 PRINT:PRINT" WORDEN. ANGEBOTE VON PLATTENFIRMEN"
1490 PRINT:PRINT" BLEIBEN AUS...VIELLEICHT KLAPPT ES"
1500 PRINT:PRINT" BEIM NAECHSTEN MAL..."
1510 REM
1511 IF J>7 THEN 1515
1512 GOTO 1519
1515 PRINT:PRINT:PRINT" DOCH DIESMAL GIBT ES KEINEN NEUEN"
1516 PRINT:PRINT" VERSUCH ! ENTMUTIGT LOEST IHR EUCH"
1517 PRINT:PRINT" AUF ...":END
1519 GET AA$:IF AA$="" THEN 1519
1520 IF AA$=CHR$(32) THEN 1140
1530 PRINT" ES MELDET SICH DAS INDIE-LABEL 'WUMM'"
1540 PRINT:PRINT" UND BIETET EUCH EINEN VERTRAG AN !!!"
1550 PRINT:PRINT" NEHMT IHR AN ODER WOLLT IHR ES MIT"
1560 PRINT:PRINT" EINEM NEUEN DEMO NOCHMAL VERSUCHEN ?"
1570 PRINT:PRINT" 1= ANNEHMEN"
1580 PRINT:PRINT" 2= NEUES DEMO AUFNEHMEN"
1590 PRINT:INPUT"";A
1600 IF A=1 THEN 1840
1610 IF A=2 THEN 1140
1620 GOTO 1380
1630 PRINT" EIN SUPERDEMO !!! ES MELDEN SICH ZWEI"
1640 PRINT:PRINT" GROESSERE INDIE-LABELS !!!"
1650 PRINT:PRINT" WO WOLLT IHR UNTERSCHREIBEN ?"
1660 PRINT:PRINT" 1='CHAOS RECORDS'"
1670 PRINT:PRINT" 2='YUPPIE VINYL'"
1680 PRINT:PRINT" 3= NEUES DEMO AUFNEHMEN"
1690 PRINT:PRINT:INPUT"";A
1700 IF A=3 THEN 1140
1710 IF A=1 THEN 1850
1720 IF A=2 THEN 1860
1730 GOTO 1380
1740 PRINT" DAS DEMO IST SPITZENKLASSE !!!"
1750 PRINT:PRINT" DAS MAJOR-LABEL 'GLAMOUR HOUSE' BIE-"
1760 PRINT:PRINT" TET EUCH EINEN SUPERVERTRAG AN !!!"
1770 PRINT:PRINT" 1= VERTRAG ANNEHMEN"
1780 PRINT:PRINT" 2= NEUES DEMO AUFNEHMEN"
1790 PRINT:PRINT:INPUT"";A
1800 IF A=2 THEN 1140
1810 IF A=1 THEN 1830
1820 GOTO 1380
1830 PF$="GLAMOUR HOUSE":V=V+5000:GOTO 1870
1840 PF$="WUMM":V=V+500:GOTO 1870
1850 PF$="CHAOS RECORDS":V=V+1000:GOTO 1870
1860 PF$="YUPPIE VINYL":V=V+1500:GOTO 1870
1870 TY=0
1875 PRINT"[147]"
1876 TY=TY+1
1880 PRINT" IHR MACHT EUCH DARAN, EURE PLATTE"
1890 PRINT:PRINT" NR."TY" ZU SCHREIBEN !!!"
1900 PRINT:PRINT" WIEVIEL MONATE WOLLT IHR EUCH DAFUER"
1910 PRINT:PRINT" ZEIT LASSEN ?"
1920 PRINT:PRINT:INPUT"";Z
1925 Y=INT(3*RND(1))+1
1930 IF Z<1 THEN 1980
1940 IF Z<2 THEN 1990
1950 IF Z<3 THEN 2000
1960 IF Z<5 THEN 2010
1970 GOTO 2020
1980 QP=QP-Y*2:GOTO 2030
1990 QP=QP-Y:GOTO 2030
2000 GOTO 2030
2010 QP=QP+Y:V=V-Z*200:GOTO 2030
2020 PRINT:PRINT" DA SPIELT EUER LABEL NICHT MIT !!!":J=J-1
2021 GET AA$:IF AA$="" THEN 2021
2022 IF AA$=CHR$(32) THEN 1875
2030 PRINT:PRINT:PRINT" WIE SOLL DIE PLATTE HEISSEN ?"
2040 PRINT:PRINT:INPUT"";NP$
2050 Q1=DK+LS
2060 QP=QP+Q1/2
2070 W=INT(2*RND(1))+1
2080 O=INT(2*RND(1))+1
2090 IF O=1 THEN 2110
2100 IF O=2 THEN
2110 QP=QP+W:GOTO 2130
2120 QP=QP-W:GOTO 2130
2130 PRINT:PRINT" WIE IST WOHL IHRE QUALITAET ?"
2140 GET AA$:IF AA$="" THEN 2140
2150 IF AA$=CHR$(32) THEN 2160
2160 PRINT""
2161 IF QP< 0.1 THEN 2163
2162 GOTO 2164
2163 QP=1:GOTO 2170
2164 IF QP>7 THEN 2166
2165 GOTO 2170
2166 QP=7:GOTO 2170
2170 PRINT:PRINT" DIE LP HAT EINE QUALITAET VON"QP" !"
2180 PRINT"[144]"
2190 GET AA$:IF AA$="" THEN 2190
2200 IF AA$=CHR$(32) THEN 2210
2210 PRINT"[147]"
2220 PRINT" DIE PRESSERESONANZ..."
2225 PRINT""
2230 GET AA$:IF AA$="" THEN 2230
2240 IF AA$=CHR$(32) THEN 2245
2245 PRINT:PRINT" "NP$" VON "BN$ "
2246 [153]"STOP"
2250 [139] QP[179]3 [167] 2290
2260 [139] QP[179]5 [167] 2330
2270 [139] QP[179]7 [167] 2360
2280 [139] QP[178]7 [167] 2390
2290 [153]:[153]:[153]" WAS SOLL DAS ? "BN$" SPIE-"
2300 [153]:[153]" LEN "S$", WIE ER NICHT SEIN"
2310 [153]:[153]" SOLLTE ! DIE"AM" 'MUSIKER' SIND"
2320 [153]:[153]" ABSOLUT UNFAEHIG !!!":[137] 2430
2330 [153]:[153]:[153]" MMH...RECHT PASSABEL ..."
2340 [153]:[153]" HAUT MICH ZWAR NICHT VOM HOCKER, ABER"
2350 [153]:[153]" ICH HAB' SCHON SCHLECHTERES GEHOERT.":[137] 2430
2360 [153]:[153]:[153]" GEFAELLT MIR ! SCHON NACH DEM ERS-"
2370 [153]:[153]" TEN HOEREN GEHT MAN MIT !"
2380 [153]:[153]" ENDLICH MAL GUTER "S$" !!!":[137] 2430
2390 [153]:[153]:[153]" WAAAAAHHHNNNNSINNNN !!!!!!"
2400 [153]:[153]" SPITZE ! TOLL ! UMWERFEND ! KLASSE !"
2410 [153]:[153]" SUPER "S$" !!! WAS WILL"
2420 [153]:[153]" MAN DENN NOCH MEHR ???":[137] 2430
2430 [161] AA$:[139] AA$[178]"" [167] 2430
2440 [139] AA$[178][199](32) [167] 2450
2450 [153]"LOAD"
2460 [139] S[178]1 [176] 7 [167] 2510
2470 [139] S[178]2 [176] 3 [167] 2530
2480 [139] S[178]4 [167] 2550
2490 [139] S[178]5 [167] 2570
2500 [139] S[178]6 [167] 2590
2510 D[178]QP[172]2
2520 V[178]V[172]D:[137] 2600
2530 D[178]QP[172]1
2540 V[178]V[172]D:[137] 2600
2550 D[178]QP[172]0.5
2560 V[178]V[172]D:[137] 2600
2570 D[178]QP[172]0.25
2580 V[178]V[172]D:[137] 2600
2590 D[178]QP[172]0.1
2595 V[178]V[172]D:[137] 2600
2600 [143] HALLO
2601 [139] V[179]1 [167] 2603
2602 [137] 2605
2603 V[178]1000:[137] 2605
2605 FC[178][181](20000[172][187](1))[170]1
2606 I1[178][181](3[172][187](1))[170]1
2607 [139] I1[178]1 [167] 2608:[139] I1[178]2 [167] 2615:[139] I1[178]3 [167] 2622:
2608 V[178]V[171]FC[172]2
2609 [139] V[179]1 [167] 2612:[139] V[177]1 [167] 2615
2610 [153]:[153] V"LP'S WURDEN ABGESETZT."
2611 [137] 2620
2612 V[178]1000:[137] 2615
2615 [153]" DIE LP WURDE"V" MAL VERKAUFT."
2616 [137] 2610
2620 [153]:[153]:[153]" ES IST ZEIT, AUF TOUR ZU GEHEN !!!"
2621 [137] 2625
2622 V[178]V[171]FC:[137] 2609
2625 ZS[178]V[172]2
2630 [161] AA$:[139] AA$[178]"" [167] 2630
2640 [139] AA$[178][199](32) [167] 2650
2650 [139] V[179]2000 [167] 2730
2660 [139] V[179]15000 [167] 2760
2670 [139] V[179]25000 [167] 2790
2680 [139] V[179]50000 [167] 2820
2690 [139] V[179]95000 [167] 2840
2700 [139] V[179]150000 [167] 2880
2710 [139] V[179]200000 [167] 2910
2720 [137] 2860
2730 [153]:[153]:[153]" BEI EINER SUPPORT-TOUR DURCH DIE KLEI-"
2740 [153]:[153]" NEN CLUBS DEUTSCHLANDS ERREICHT IHR"
2750 [153]:[153]" GENAU"ZS"CLOSEFANS ...":[137] 2940
2760 [153]:[153]:[153]" BEI EINER HEADLINER-TOUR DURCH DIE"
2770 [153]:[153]" KLEINEN DEUTSCHEN CLUBS ERREICHT IHR"
2780 [153]:[153]" GENAU"ZS" FANS...":[137] 2940
2790 [153]:[153]:[153]" IHR MACHT EINE SUPPORT-TOUR DURCH"
2800 [153]:[153]" DEUTSCHLAND UND ERREICHT"ZS
2810 [153]:[153]" FANS...":[137] 2940
2820 [153]:[153]:[153]" IHR MACHT EINE HEADLINER-TOUR DURCH"
2830 [153]:[153]" DEUTSCHLAND."ZS" FANS KOMMEN!":[137] 2940
2840 [153]:[153]:[153]" BEI EINER EURO-TOUR ALS SUPPORT SPIELT"
2850 [153]:[153]" IHR VOR"ZS" FANS !!!":[137] 2940
2860 [153]:[153]:[153]" IHR MACHT EINE HEADLINER-WELTTOURNEE !"
2870 [153]:[153]" ES SEHEN EUCH"ZS" FANS !":[137] 2940
2880 [153]:[153]:[153]" IHR ZIEHT EINE HEADLINERTOUR DURCH"
2890 [153]:[153]" EUROPA DURCH UND SPIELT VOR MEHR"
2900 [153]:[153]" ALS"ZS" FANS !!!":[137]2940
2910 [153]:[153]:[153]"CLOSEIHR REIST ALS SUPPORT EINER GROSSEN"
2920 [153]:[153]" BAND DURCH DIE GANZE WELT UND ERREICHT"
2930 [153]:[153]" MEHR ALS"ZS" FANS !!!":[137] 2940
2940 [161] AA$:[139] AA$[178]"" [167] 2940
2950 [139] AA$[178][199](32) [167] 2960
2960 J[178]ZS[173]8
2970 V[178]V[170]J
2980 [153]:[153]:[153]" EURE PLATTENVERKAEUFE STEIGERN SICH"
2990 [153]:[153]" AUF"V" !!!"
3000 [161] AA$:[139] AA$[178]"" [167] 3000
3010 [139] AA$[178][199](32) [167] 3020
3020 [153]"LOAD"
3025 RR[178][181](10[172][187](1))[170]1
3030 [139] V[177]100000 [167] 3050
3040 [153]" IHR SEID NICHT IN DEN CHARTS...":[137] 3200
3050 [139] V[177]200000 [167] 3110
3060 [139] V[177]175000 [167] 3150
3070 [139] V[177]150000 [167] 3160
3080 [139] V[177]125000 [167] 3170
3090 [139] V[177]110000 [167] 3180
3100 [137] 3190
3110 C[178]0
3120 CH[178]C[170]RR
3130 [153]" IHR SEID MIT EURER LP "NP$
3140 [153]:[153]" AUF PLATZ"CH" DER CHARTS !!!":[137] 3200
3150 C[178]20:CH[178]C[170]RR:[137] 3130
3160 C[178]35:CH[178]C[170]RR:[137] 3130
3170 C[178]50:CH[178]C[170]RR:[137] 3130
3180 C[178]65:CH[178]C[170]RR:[137] 3130
3190 C[178]75:CH[178]C[170]RR[172]2:[137] 3130
3200 [161] AA$:[139] AA$[178]"" [167] 3200
3210 [139] AA$[178][199](32) [167] 3220
3220 [153]"LOAD"
3230 [153]" ENDABRECHNUNG:"
3231 [139] V[177]250000 [167] 4000
3240 [153]" --------------"
3250 [161] AA$:[139] AA$[178]"" [167] 3250
3260 [139] AA$[178][199](32) [167] 3270
3270 [153]:[153]:[153]" NAME DER LP:"NP$
3280 [153]:[153]" VERKAUFTE LP'S:"V
3290 [153]:[153]" CHART-PLATZIERUNG:"CH
3291 VM[178]V[172]2[173]AM
3295 [153]:[153]" VERDIENST PRO MITGLIED:"VM
3300 [153]:[153]:[153]:[153]" 1= BAND AUFLOESEN"
3310 [153]:[153]" 2= NEUE LP EINSPIELEN"
3320 [153]:[153]:[133]"";A
3330 [139] A[178]1 [167] 3360
3340 [139] A[178]2 [167] 3370
3350 [137] 3240
3360 [153]:[153]" SCHADE...":[128]
3370 V[178]V[173]10:QP[178]0:[137] 1875
4000 [153]"LOAD"
4010 [151] 53281,1:[151] 53280,1
4020 [153]"STOP"
4030 [153]" EURE BAND HAT ES GESCHAFFT !!!"
4040 [153]:[153]" IHR SEID ABSOLUTE MEGASTARS !!!"
4050 [153]:[153]:[153]:[153]" HERZLICHEN GLUECKWUNSCH !!!":[128]